home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 22
/
022.d81
/
pixel page
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
39 lines
4 ifx=0thenx=1:gosub1000: load"unpacker",8,1
5 ifx=1thenx=2:load"pixel.shps",8,1
10 poke249,224:poke250,204: rem screen/color
20 poke251,0:poke252,64: rem shp buffer
30 poke253,0:poke254,0: rem x-pos,y-pos
35 print"[145][145] [208]ress space bar to view pixel page."
37 print" [208]ress it again to return to loadstar."
40 wait198,1:poke198,0
41 :
42 s=54272:fori=0to24:pokes+i,0:next
43 pokes+5,240:pokes+6,253:pokes,0:pokes+1,4:pokes+23,241:pokes+24,31
44 pokes+4,129
48 :
50 poke255,0:sys51462: rem unpack blank
51 poke255,1:sys51462: rem full shuttle
52 sys51459: rem show screen
53 poke53265,peek(53265)or32: poke53270,peek(53270)or16:poke198,0
54 sh=3
55 ifpeek(198)=0thenpoke253,0:poke254,18:poke255,sh:sys51462:ifsh=3thensh=2:goto55
56 ifpeek(198)=0then54
57 poke255,0:sys51462:sys51459
58 :
59 forv=15to0:pokes+24,v:next
60 print"[147]"spc(10)"[210]eturning to [204][207][193][196][211][212][193][210]...."
95 load"hello connect",8:end
1000 rem main screen
1002 poke53280,0:poke53281,0:print"[147]"chr$(8)
1004 printspc(13)"[158][204][207][193][196][211][212][193][210] #22"
1006 print""spc(14)"[208]ixel[160][208]age"
1010 print:print:print
1012 print
1014 print"[158] [204][207][193][196][211][212][193][210] remembers":print:print
1016 print"[158] the [195][200][193][204][204][197][206][199][197][210] seven.":print
1018 print" [202]anuary 28, 1986":print:print
1020 print"[154] [195]over designed by [202]erry [202]ones using"
1022 printspc(12)"the [203]oala pad."
1030 print"[156] [204]oading picture...please wait."
1040 return